ISREDIT MACRO PROCESS                                                   00010008
    CONTROL NOFLUSH NOPROMPT NOLIST NOMSG                               00020008
/*  CONTROL MSG LIST CONLIST SYMLIST                                    00030008
/*  ISPEXEC CONTROL ERRORS RETURN                                       00040008
ISREDIT (CMEM) = MEMBER                                                 00050008
SET &CMEM  = &STR(&CMEM)                                                00060008
SET &CMEM  = &STR(P&SUBSTR(2:7,&CMEM)                                   00070008
FINDIT: +                                                               00080008
ISREDIT SAVE                                                            00090008
SUB 'J623SC.JCL.CNTL(&CMEM)'                                            00100008
EXIT CODE(0)                                                            00110008
